home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / tbank.scr < prev    next >
Encoding:
Text File  |  1995-03-04  |  1.2 KB  |  48 lines
  1. /*
  2.  * OCTO-BANK Subroutine to run the Time/K Bank, written by Paul Baker
  3.  */
  4.  
  5. :tbank
  6. Do
  7.   Cls
  8.   Convert 'tbank'
  9.   DoChoice
  10.     SelectChoice
  11.         /* Parameters are:
  12.          *   1) TIME or K 
  13.          *   2) User time Left (macro)
  14.          *   3) User downloads left (macro)
  15.          *   4) % charge for deposit
  16.          *   5) % charge for withdrawl
  17.          *   6) Max time to be allowed to store 
  18.          *   7) Max K to be allowed to save
  19.          *   8) Baud Rate
  20.          */
  21.  
  22.       Case 'T'
  23.          CreateDorinfo 'c:\octopus\system\' 
  24.          Execute 'c:\octopus\system\octobank.ttp TIME `Ut`U5 10 0 60 1024 `b'
  25.          SelectErrorLevel
  26.            Case 0
  27.              Send 'Nothing Withdrawn or Deposited\r\n'
  28.              GetKey
  29.            Default
  30.              AddTime ErrorLevel
  31.          Endselect
  32.  
  33.       Case 'K'    CreateDorinfo 'c:\octopus\system\' 
  34.          CreateDorinfo 'c:\octopus\system\' 
  35.          Execute 'c:\octopus\system\octobank.ttp K `Ut`U5 10 0 60 1024 `b'
  36.          SelectErrorLevel
  37.            Case 0
  38.              Send 'Nothing Withdrawn or Deposited\r\n'
  39.              GetKey
  40.            Default
  41.              adddownload errorLevel
  42.          Endselect
  43.     EndSelect
  44.   EnddoChoice 'Q'
  45. Enddo 'Q'
  46. Clrchoice
  47. Return
  48.